;; ============================   chaos :: [RL]   ============================


;;; If this isn't here it throws compiler warnings, at least in ccl.
(eval-when (:compile-toplevel)
  ;; Set up all the things we need to load:

  ;; Global variables
  (defparameter *screen-width* 800)
  (defparameter *screen-height* 600)

  ;; These are defined temporarily to make it compile.
  (defparameter *map-width* *screen-width*)
  (defparameter *map-height* *screen-height*)


  ;(require 'quicklisp)

  ;; Fun fact: when writing unit vectors with the hat notation, (i+j) looks 
  ;; like a war-painted happy face.
  ;; (^+^)

  (defparameter chaos-files
    '("input.lisp" "utilities.lisp" "drawing.lisp" "chaos-thingy.lisp" 
      "chaos-cell.lisp" "chaos-map.lisp" "chaos-gui.lisp" "chaos-actions.lisp"
      "chaos-controls.lisp" "chaos-ai.lisp" "game-init.lisp"
      "chaos-dungeon.lisp" "chaos-print.lisp"))
  
  ;; (defparameter to-load
  ;;   (mapcar (lambda (name) 
  ;; 	      ;; replace `chaos-home' with the path to the directory
  ;; 	      ;; you unzipped to
  ;; 	      (concatenate 'string chaos-home name))
  ;; 	    chaos-files))

  ;(ql:quickload '#:lispbuilder-sdl)

  ;(mapcar #'load to-load)
  )
